CD Fun House 1/CD Fun House (Wayzata Technology).iso/•AdventureLand•/Adventures/HyperQuest 1.03 •••/HyperQuest 1.03 еее/card_33443.txt

Text File | 1990-10-02 | 10KB | 440 lines

-- card: 33443 from stack: in.03 –µ–µ–µ
-- bmap block id: 5352
-- flags: 0000
-- background id: 2766
-- name:
----- HyperTalk script -----
on openCard
  send cardOpened to background
end openCard

on move
  global direction,sDoorOpen,demonDead,blastWall,chase,blasting
  if direction = "north" then
    if sDoorOpen then
      if demonDead then
        go to card id 13815
        exit move
      else
        go to card id 13242
        exit move
      end if
    else
      beep
      put "The north door is locked!  You can not enter." into field 3
      exit move
    end if
  end if
  if direction = "east" or direction = "up" then
    go card id 30913
    exit move
  end if
  if direction = "west" or direction = "down" then
    if blastWall then
      go to card id 12716
      exit move
    end if
    go to card id 12023
    exit move
  end if
  if direction = "enter" then
    go to card id 2539
    exit move
  end if
  pass move
end move


on closeCard
  set the cursor to 4
  put "" into field 3
end closeCard

on take
  global object,carried
  -- remember to update carried if you do not pass take
  pass take
end take

on drop
  global object,dropRoom,carried
  -- remember to update carried if you do not pass drop
  pass drop
end drop

on use
  global object,carried,sDoorOpen
  put last word of object into obj
  delete first char of obj
  delete last char of obj
  if obj="key" then
    put "The door leading north is now unlocked and you may pass through." into field 3
    put true into sDoorOpen
    exit use
  end if
  -- update carried if use results in loss of object
  pass use
end use





-- part 16 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=136 top=159 right=195 bottom=170
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: knife
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a knife" into field 3
put false into examFlag
end mouseUp



-- part 17 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=103 top=185 right=221 bottom=137
-- title width / last selected line: 0
-- icon id / first selected line: 1015 / 1015
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: nodule
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a silicon sphere" into field 3
put false into examFlag
end mouseUp



-- part 18 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=136 top=195 right=231 bottom=170
-- title width / last selected line: 0
-- icon id / first selected line: 14953 / 14953
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ladder
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a rope ladder" into field 3
put false into examFlag
end mouseUp



-- part 19 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=103 top=150 right=186 bottom=137
-- title width / last selected line: 0
-- icon id / first selected line: 1019 / 1019
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: bomb
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a time bomb" into field 3
put false into examFlag
end mouseUp



-- part 20 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=38 top=160 right=196 bottom=72
-- title width / last selected line: 0
-- icon id / first selected line: 24317 / 24317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: key
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a key" into field 3
put false into examFlag
end mouseUp



-- part 21 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=113 top=230 right=266 bottom=147
-- title width / last selected line: 0
-- icon id / first selected line: 7012 / 7012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: gem
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a glowing gem" into field 3
put false into examFlag
end mouseUp



-- part 22 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=5 top=227 right=263 bottom=39
-- title width / last selected line: 0
-- icon id / first selected line: 23078 / 23078
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: orb
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a crystal orb" into field 3
put false into examFlag
end mouseUp



-- part 23 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=220 top=66 right=106 bottom=252
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global examFlag,direction,cardID
  if examFlag then
    put "a dorway on the ledge leading east." into field 3
    put false into examFlag
  else
    put "east" into direction
    send move to card id cardID
  end if
end mouseUp



-- part 34 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=5 top=130 right=178 bottom=32
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global examFlag,direction,cardID
  if examFlag then
    put "a sloping tunnel leading downward to the west." into field 3
    put false into examFlag
  else
    put "west" into direction
    send move to card id cardID
  end if
end mouseUp



-- part 36 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=48 top=210 right=236 bottom=87
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global examFlag,takeFlag,direction,cardID
  if takeFlag then
    beep
    put "The giant wash tub is too heavy for you to carry." into field 3
    put false into takeFlag
    exit mouseUp
  end if
  if examFlag then
    put "A giant wash tub.  You could easily fit in it." into field 3
    put false into examFlag
    exit mouseUp
  end if
  put "enter" into direction
  send move to card id cardID
end mouseUp



-- part 40 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=2 top=59 right=107 bottom=28
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global examFlag,takeFlag,direction,cardID
  if not examFlag then beep
  put false into examFlag
  put false into takeFlag
  put "The doorway on the high ledge on the west wall is too high to reach." into field 3
end mouseUp



-- part 41 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=170 top=107 right=266 bottom=254
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global examFlag,direction,cardID,takeFlag
  if takeFlag then
    beep
    put "You can't carry that massive stone stairway!" into field 3
    put false into takeFlag
    exit mouseUp
  end if
  if examFlag then
    put "A stone stairway leading up to the east ledge." into field 3
    put false into examFlag
  else
    put "east" into direction
    send move to card id cardID
  end if
end mouseUp



-- part 42 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=90 top=97 right=131 bottom=125
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global examFlag,direction,cardID,sDoorOpen,demonDead,takeFlag
  if examFlag then
    put "a barred door leading north." into field 3
    if sDoorOpen
    then put "  The door is unlocked!" after field 3
  else put "  The door is locked!" after field 3
  if demonDead=false then
    put "  Peering through the bars you can see the orb of power " after field 3
    put "in the dimly lit room beyond!" after field 3
  end if
  put false into examFlag
else
  if takeFlag then
    put "You can't take the door." into field 3
    put false into takeFlag
  else
    put "north" into direction
    send move to card id cardID
  end if
end if
end mouseUp



-- part contents for background part 25
----- text -----
Great Chamber
(looking north)

-- part contents for background part 24
----- text -----
You are on the floor of the Great Chamber.  There is a tunnel leading downward to the west, and a doorway to the north that is blocked by a door made of massive iron bars.  There are two doorways on ledges high on the east and west walls.  A winding stone stairway leads up to the east ledge.  A giant wash tub is sitting here.


-- part contents for background part 36
----- text -----
1